home *** CD-ROM | disk | FTP | other *** search
/ User's Choice Windows CD / User's Choice Windows CD (CMS Software)(1993).iso / utility2 / wine02bx.zip / LISP / PRIM / DEMACS.ELC < prev    next >
Text File  |  1993-03-28  |  3KB  |  20 lines
  1. ;;; compiled by @win386 on Sat Mar 13 14:37:45 1993
  2. ;;; from file c:/src/lucid-19.4/lisp/prim/demacs.el
  3. ;;; emacs version 19.3 Lucid.
  4. ;;; bytecomp version 2.08; 27-aug-92.
  5. ;;; optimization is on.
  6. ;;; this file uses opcodes which do not exist in Emacs18.
  7.  
  8. (if (and (boundp 'emacs-version)
  9.      (or (and (boundp 'epoch::version) epoch::version)
  10.          (string-lessp emacs-version "19")))
  11.     (error "This file was compiled for Emacs19."))
  12.  
  13. (defconst demacs-version "1.2.0" "\
  14. Version numbers of this version of Demacs. major.minor.local")
  15. (defconst demacs-version-date "1991.12.12" "\
  16. Distribution date of this version of Demacs.")
  17. (fset 'demacs-version #[nil "t½å└┴┬ \"ç├─\n#ç" [message "%s" demacs-version format "Demacs version %s of %s" demacs-version-date] 4 "\
  18. Return string describing the version of Demacs that is running." nil])
  19. (byte-code "└┴┬\"ê├─!½ú└┼╞╟!╚╔╩╞╦!╠╞═!╬╧╨╤╥╞╙!╞╘!╞╒!»\"ê¬á└┼╞╟!╚╩╞╦!╠╞═!╓╧╨╤╥╞╙!╞╫!╞╒!»\"ê╪┌█Mê▄▌Mê▐▀MêαßMêΓπMêΣ%├µ!¼âτ&ΣΦMêΘΩMêδ,B,δφMêε∩Mç" [set-default file-type 0 boundp NEMACS mode-line-format purecopy "" mode-line-modified mode-line-nemacs-header mode-line-buffer-identification "   " global-mode-string "  %[(" ((kanji-flag "%c") "%t" ":") mode-name minor-mode-alist "%n" mode-line-process ")%]--" (-3 . "%p") "-%-" ("%c" "%t" ":") (-3 . "%p") (("text" . 0) ("binary" . 1)) file-type-alist file-type-internal #[(code) "└    ;½â    ¬è    9½à┬    !¬ü├╞╟ \"½â╚¬è╞╔ \"½â╩¬ü╚*ç" [t code symbol-name "" string case-fold-search string-match "t.*" 0 "b.*" 1] 3] set-file-type #[(code &optional buffer) "½Ñ9½å┴!¬¢;½å┬ \"A─!¼î┬┼╞ ╟╚╟% \"Aè    «üpqê\n)ç" [code file-type-internal assoc file-type-alist file-type-p completing-read "File Type : " nil t buffer file-type] 7 nil (byte-code "└┴\n├─├%Cç" [completing-read "File Type : " file-type-alist nil t] 6)] set-default-file-type #[(code) "½Ñ9½å┴!¬¢;½å┬ \"A─!¼î┬┼╞ ╟╚╟% \"A╔╩\"ç" [code file-type-internal assoc file-type-alist file-type-p completing-read "File Type : " nil t set-default file-type] 7 nil (byte-code "└┴\n├─├%Cç" [completing-read "File Type : " file-type-alist nil t] 6)] file-type-p #[(code) "º¡ê┴=«â┬=ç" [code 0 1] 2] invoke-find-file-type #[(filename) "è    !)ç" [find-file-type filename] 2] find-file-type-from-file-name find-file-type file-name-file-type-alist (("\\.elc$" . 1) ("\\.obj$" . 1) ("\\.exe$" . 1) ("\\.com$" . 1) ("\\.lib$" . 1) ("[:/].*config.sys" . 0) ("\\.sys$" . 1) ("\\.chk$" . 1) ("\\.o$" . 1) ("\\.a$" . 1) ("\\.out$" . 1)) #[(filename) "┴ë╞=╚    !     ¼ù ½ö╩ @@    \"½å @A╦ A¬f)\n½£\nº½â\n¬ù\n9¡ô╠\n!¡Ä\n    $¬é+ç" [file-name-file-type-alist nil code found alist system-type ms-dos case-fold-search file-name-sans-versions filename string-match t fboundp visit start end default-file-type] 5] define-file-name-file-type #[(filename code) "└    \n\"ë½å íê¬ê     Bë\nB )ç" [assoc filename file-name-file-type-alist place code] 4] find-file-not-found-set-file-type find-file-not-found-hooks #[nil "èpqê└┴ !)├ç" [find-file-type-from-file-name buffer-file-name file-type nil] 2] toggle-pass8-mode #[(arg) "¼ä    ?¬à┬!├V─┼ !ç" [arg pass8-mode prefix-numeric-value 0 set-buffer-modified-p buffer-modified-p] 2 nil "P"]] 18)
  20.